home *** CD-ROM | disk | FTP | other *** search
/ Master Visual Basic 3 / Master Visual Basic 3 (SAMS Publishing) (1994).ISO / mvprog / original / ch02 / independ.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-04-30  |  1.4 KB  |  52 lines

  1. VERSION 2.00
  2. Begin Form frmIndependent 
  3.    BackColor       =   &H0000FFFF&
  4.    Caption         =   "I am Independent"
  5.    ClientHeight    =   4725
  6.    ClientLeft      =   1230
  7.    ClientTop       =   1275
  8.    ClientWidth     =   7365
  9.    Height          =   5130
  10.    Left            =   1170
  11.    LinkTopic       =   "Form1"
  12.    Picture         =   INDEPEND.FRX:0000
  13.    ScaleHeight     =   4725
  14.    ScaleWidth      =   7365
  15.    Top             =   930
  16.    Width           =   7485
  17.    Begin TextBox txtUserInput 
  18.       Height          =   495
  19.       Left            =   4080
  20.       TabIndex        =   2
  21.       Top             =   3120
  22.       Width           =   2175
  23.    End
  24.    Begin CommandButton cmdOK 
  25.       Caption         =   "&OK"
  26.       Height          =   495
  27.       Left            =   4200
  28.       TabIndex        =   1
  29.       Top             =   3960
  30.       Width           =   1215
  31.    End
  32.    Begin CommandButton cmdCancel 
  33.       Caption         =   "&Cancel"
  34.       Height          =   495
  35.       Left            =   2760
  36.       TabIndex        =   0
  37.       Top             =   3960
  38.       Width           =   1215
  39.    End
  40. Option Explicit
  41. Dim gOriginalValue
  42. Sub cmdCancel_Click ()
  43.     txtUserInput.Text = gOriginalValue
  44.     frmIndependent.Hide
  45. End Sub
  46. Sub cmdOK_Click ()
  47.     frmIndependent.Hide
  48. End Sub
  49. Sub Form_Activate ()
  50.     gOriginalValue = txtUserInput.Text
  51. End Sub
  52.